
		 **************************************************************
		 **															 **
		 ** Paper: Freedom of Foreign Movement and Human Trafficking **
		 **														     **
		 ** Authors: Sam R. Bell & Richard W. Frank 				 **
		 **															 **
		 ** Date: May 12, 2021										 **
		 **															 **
		 ** Task: Figure A4 - Models 2 & 4 Coefficient plots		 **
		 **															 **
		 **************************************************************

		 
		clear
		version 16.1
		set seed 1234

		** Change working directory
		cd "~"
	 
		use "ht_merged.dta"
		merge 1:1 ccode year using "ht_eba_ivs.dta"
		global IVs "gdp_ln pop_ln " 	  	
 
		probit F.source fm W_fm_con12  interact_W_C_f12 $IVs , robust cluster (ccode) 
		estimates store A
		rename fm temp1
		rename W_fm_con12  temp2
		rename interact_W_C_f12 temp3
		rename v2clfmove  fm
		rename W_vfomov_con12 W_fm_con12
		rename interact_W_Vf12 interact_W_C_f12
		
		probit F.source fm W_fm_con12  interact_W_C_f12 $IVs , robust cluster (ccode)
		estimates store B				
	
 		coefplot A B														///
			, drop(_cons) xsize(10) ysize(5) xline(0, lwidth(thin)) lcolor(cranberry) ///
				ciopts(recast(rcap))											///	
				order( fm ) 				///    						 
			coeflabel(W_fomov_con="Neighboring foreign movement" 				///
			formov = "Foreign movement" 										///
			Wxfomov = "Interaction term" 								///
			gdp_ln = "GDP(ln)" 												///
			pop_ln =  "Population(ln)"		///						///
			, labsize(small) nogrid	)  xlabel(, labsize(small))  legend( position(6) cols(2)) ///
			title("Trafficking source") 
			graph save models2_and4.gph, replace
	 	
		
		
